/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / SystemCode / copyRing.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 63 6f 70 79 52 69 | 6e 67 2e 74 63 6c 00 00 |..copyRi|ng.tcl..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 08 c8 00 | 00 01 7e a9 a6 28 06 a9 |........|..~..(..|
|00000060| a6 28 06 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.(......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d7 6e 00 00 |........|.....n..|
|00000080| 23 20 49 6d 70 6c 65 6d | 65 6e 74 61 74 69 6f 6e |# Implem|entation|
|00000090| 20 6f 66 20 45 6d 61 63 | 73 27 73 20 6b 69 6c 6c | of Emac|s's kill|
|000000a0| 20 72 69 6e 67 2e 20 54 | 68 69 73 20 69 73 20 61 | ring. T|his is a|
|000000b0| 20 70 61 73 74 65 20 72 | 69 6e 67 2e 0d 0d 69 66 | paste r|ing...if|
|000000c0| 20 7b 5b 63 61 74 63 68 | 20 7b 73 65 74 20 72 65 | {[catch| {set re|
|000000d0| 6e 61 6d 65 64 52 69 6e | 67 7d 5d 7d 20 7b 0d 09 |namedRin|g}]} {..|
|000000e0| 73 65 74 20 72 65 6e 61 | 6d 65 64 52 69 6e 67 20 |set rena|medRing |
|000000f0| 31 0d 09 72 65 6e 61 6d | 65 20 63 6f 70 79 20 6f |1..renam|e copy o|
|00000100| 6c 64 43 6f 70 79 0d 09 | 72 65 6e 61 6d 65 20 63 |ldCopy..|rename c|
|00000110| 75 74 20 6f 6c 64 43 75 | 74 0d 09 72 65 6e 61 6d |ut oldCu|t..renam|
|00000120| 65 20 70 61 73 74 65 20 | 6f 6c 64 50 61 73 74 65 |e paste |oldPaste|
|00000130| 0d 7d 0d 0d 73 65 74 20 | 72 69 6e 67 44 65 70 74 |.}..set |ringDept|
|00000140| 68 20 09 31 30 0d 73 65 | 74 20 72 69 6e 67 49 6e |h .10.se|t ringIn|
|00000150| 09 20 09 30 0d 73 65 74 | 20 72 69 6e 67 4f 75 74 |. .0.set| ringOut|
|00000160| 09 20 09 30 0d 73 65 74 | 20 70 61 73 74 65 53 74 |. .0.set| pasteSt|
|00000170| 61 72 74 20 09 30 0d 73 | 65 74 20 70 61 73 74 65 |art .0.s|et paste|
|00000180| 46 69 6e 69 73 68 09 30 | 0d 0d 0d 70 72 6f 63 20 |Finish.0|...proc |
|00000190| 63 6f 70 79 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |copy {} |{..globa|
|000001a0| 6c 20 63 6f 70 79 72 69 | 6e 67 20 72 69 6e 67 44 |l copyri|ng ringD|
|000001b0| 65 70 74 68 20 72 69 6e | 67 49 6e 0d 09 0d 09 73 |epth rin|gIn....s|
|000001c0| 65 74 20 6c 65 6e 20 5b | 65 78 70 72 20 7b 5b 73 |et len [|expr {[s|
|000001d0| 65 6c 45 6e 64 5d 20 2d | 20 5b 67 65 74 50 6f 73 |elEnd] -| [getPos|
|000001e0| 5d 7d 5d 0d 09 69 66 20 | 7b 21 24 6c 65 6e 7d 20 |]}]..if |{!$len} |
|000001f0| 7b 0d 09 09 69 66 20 7b | 5b 67 65 74 4d 61 72 6b |{...if {|[getMark|
|00000200| 5d 20 3c 20 5b 67 65 74 | 50 6f 73 5d 7d 20 7b 0d |] < [get|Pos]} {.|
|00000210| 09 09 09 73 65 74 20 74 | 65 78 74 20 5b 67 65 74 |...set t|ext [get|
|00000220| 54 65 78 74 20 5b 67 65 | 74 4d 61 72 6b 5d 20 5b |Text [ge|tMark] [|
|00000230| 67 65 74 50 6f 73 5d 5d | 0d 09 09 7d 20 65 6c 73 |getPos]]|...} els|
|00000240| 65 20 7b 0d 09 09 09 73 | 65 74 20 74 65 78 74 20 |e {....s|et text |
|00000250| 5b 67 65 74 54 65 78 74 | 20 5b 67 65 74 50 6f 73 |[getText| [getPos|
|00000260| 5d 20 5b 67 65 74 4d 61 | 72 6b 5d 5d 0d 09 09 7d |] [getMa|rk]]...}|
|00000270| 0d 09 09 69 66 20 7b 21 | 5b 73 74 72 69 6e 67 20 |...if {!|[string |
|00000280| 6c 65 6e 67 74 68 20 24 | 74 65 78 74 5d 7d 20 72 |length $|text]} r|
|00000290| 65 74 75 72 6e 0d 09 7d | 20 65 6c 73 65 20 7b 0d |eturn..}| else {.|
|000002a0| 09 09 73 65 74 20 74 65 | 78 74 20 5b 67 65 74 53 |..set te|xt [getS|
|000002b0| 65 6c 65 63 74 5d 0d 09 | 7d 0d 09 73 65 74 20 63 |elect]..|}..set c|
|000002c0| 6f 70 79 72 69 6e 67 28 | 5b 65 78 70 72 20 7b 24 |opyring(|[expr {$|
|000002d0| 72 69 6e 67 49 6e 20 25 | 20 24 72 69 6e 67 44 65 |ringIn %| $ringDe|
|000002e0| 70 74 68 7d 5d 29 20 24 | 74 65 78 74 0d 0d 09 69 |pth}]) $|text...i|
|000002f0| 6e 63 72 20 72 69 6e 67 | 49 6e 0d 09 0d 09 6f 6c |ncr ring|In....ol|
|00000300| 64 43 6f 70 79 0d 7d 0d | 0d 0d 70 72 6f 63 20 63 |dCopy.}.|..proc c|
|00000310| 75 74 20 7b 7b 72 65 63 | 74 20 30 7d 7d 20 7b 0d |ut {{rec|t 0}} {.|
|00000320| 09 67 6c 6f 62 61 6c 20 | 63 6f 70 79 72 69 6e 67 |.global |copyring|
|00000330| 20 72 69 6e 67 44 65 70 | 74 68 20 72 69 6e 67 49 | ringDep|th ringI|
|00000340| 6e 20 69 6e 74 65 6c 43 | 75 74 50 61 73 74 65 0d |n intelC|utPaste.|
|00000350| 09 0d 09 73 65 74 20 6c | 65 6e 20 5b 65 78 70 72 |...set l|en [expr|
|00000360| 20 7b 5b 73 65 6c 45 6e | 64 5d 20 2d 20 5b 67 65 | {[selEn|d] - [ge|
|00000370| 74 50 6f 73 5d 7d 5d 0d | 09 69 66 20 7b 21 24 6c |tPos]}].|.if {!$l|
|00000380| 65 6e 7d 20 7b 0d 09 09 | 69 66 20 7b 5b 67 65 74 |en} {...|if {[get|
|00000390| 4d 61 72 6b 5d 20 3c 20 | 5b 67 65 74 50 6f 73 5d |Mark] < |[getPos]|
|000003a0| 7d 20 7b 0d 09 09 09 73 | 65 74 20 74 65 78 74 20 |} {....s|et text |
|000003b0| 5b 67 65 74 54 65 78 74 | 20 5b 67 65 74 4d 61 72 |[getText| [getMar|
|000003c0| 6b 5d 20 5b 67 65 74 50 | 6f 73 5d 5d 0d 09 09 7d |k] [getP|os]]...}|
|000003d0| 20 65 6c 73 65 20 7b 0d | 09 09 09 73 65 74 20 74 | else {.|...set t|
|000003e0| 65 78 74 20 5b 67 65 74 | 54 65 78 74 20 5b 67 65 |ext [get|Text [ge|
|000003f0| 74 50 6f 73 5d 20 5b 67 | 65 74 4d 61 72 6b 5d 5d |tPos] [g|etMark]]|
|00000400| 0d 09 09 7d 0d 09 09 69 | 66 20 7b 21 5b 73 74 72 |...}...i|f {![str|
|00000410| 69 6e 67 20 6c 65 6e 67 | 74 68 20 24 74 65 78 74 |ing leng|th $text|
|00000420| 5d 7d 20 72 65 74 75 72 | 6e 0d 09 7d 20 65 6c 73 |]} retur|n..} els|
|00000430| 65 20 7b 0d 09 09 73 65 | 74 20 74 65 78 74 20 5b |e {...se|t text [|
|00000440| 67 65 74 53 65 6c 65 63 | 74 5d 0d 09 7d 0d 09 73 |getSelec|t]..}..s|
|00000450| 65 74 20 63 6f 70 79 72 | 69 6e 67 28 5b 65 78 70 |et copyr|ing([exp|
|00000460| 72 20 7b 24 72 69 6e 67 | 49 6e 20 25 20 24 72 69 |r {$ring|In % $ri|
|00000470| 6e 67 44 65 70 74 68 7d | 5d 29 20 24 74 65 78 74 |ngDepth}|]) $text|
|00000480| 0d 0d 09 69 6e 63 72 20 | 72 69 6e 67 49 6e 0d 09 |...incr |ringIn..|
|00000490| 0d 09 6f 6c 64 43 75 74 | 0d 0d 09 69 66 20 7b 24 |..oldCut|...if {$|
|000004a0| 69 6e 74 65 6c 43 75 74 | 50 61 73 74 65 20 26 26 |intelCut|Paste &&|
|000004b0| 20 21 24 72 65 63 74 7d | 20 7b 0d 09 09 69 66 20 | !$rect}| {...if |
|000004c0| 7b 5b 69 73 57 68 69 74 | 65 20 30 5d 20 26 26 20 |{[isWhit|e 0] && |
|000004d0| 5b 69 73 57 68 69 74 65 | 20 2d 31 5d 7d 20 7b 0d |[isWhite| -1]} {.|
|000004e0| 09 09 09 62 61 63 6b 53 | 70 61 63 65 0d 09 09 7d |...backS|pace...}|
|000004f0| 0d 09 7d 0d 7d 0d 0d 70 | 72 6f 63 20 70 61 73 74 |..}.}..p|roc past|
|00000500| 65 20 7b 7b 72 65 63 74 | 20 30 7d 7d 20 7b 0d 09 |e {{rect| 0}} {..|
|00000510| 67 6c 6f 62 61 6c 20 63 | 6f 70 79 72 69 6e 67 20 |global c|opyring |
|00000520| 72 69 6e 67 44 65 70 74 | 68 20 72 69 6e 67 49 6e |ringDept|h ringIn|
|00000530| 20 72 69 6e 67 4f 75 74 | 20 69 6e 74 65 6c 43 75 | ringOut| intelCu|
|00000540| 74 50 61 73 74 65 20 70 | 61 73 74 65 53 74 61 72 |tPaste p|asteStar|
|00000550| 74 20 70 61 73 74 65 46 | 69 6e 69 73 68 0d 09 73 |t pasteF|inish..s|
|00000560| 65 74 20 69 6e 74 65 6c | 20 30 0d 09 73 65 74 20 |et intel| 0..set |
|00000570| 72 69 6e 67 4f 75 74 20 | 5b 65 78 70 72 20 7b 28 |ringOut |[expr {(|
|00000580| 24 72 69 6e 67 49 6e 20 | 2d 20 31 29 20 25 20 24 |$ringIn |- 1) % $|
|00000590| 72 69 6e 67 44 65 70 74 | 68 7d 5d 0d 09 69 66 20 |ringDept|h}]..if |
|000005a0| 7b 21 24 72 65 63 74 20 | 26 26 20 24 69 6e 74 65 |{!$rect |&& $inte|
|000005b0| 6c 43 75 74 50 61 73 74 | 65 7d 20 7b 0d 09 09 73 |lCutPast|e} {...s|
|000005c0| 65 74 20 6c 65 66 74 20 | 2d 31 0d 09 09 73 65 74 |et left |-1...set|
|000005d0| 20 72 69 67 68 74 20 5b | 65 78 70 72 20 5b 73 65 | right [|expr [se|
|000005e0| 6c 45 6e 64 5d 20 2d 20 | 5b 67 65 74 50 6f 73 5d |lEnd] - |[getPos]|
|000005f0| 5d 0d 09 09 69 66 20 7b | 5b 69 73 57 68 69 74 65 |]...if {|[isWhite|
|00000600| 20 24 72 69 67 68 74 5d | 20 26 26 20 5b 69 73 43 | $right]| && [isC|
|00000610| 68 61 72 20 24 6c 65 66 | 74 5d 7d 20 7b 0d 09 09 |har $lef|t]} {...|
|00000620| 09 63 6c 65 61 72 0d 09 | 09 09 69 6e 73 65 72 74 |.clear..|..insert|
|00000630| 54 65 78 74 20 22 20 22 | 0d 09 09 7d 20 65 6c 73 |Text " "|...} els|
|00000640| 65 69 66 20 7b 5b 69 73 | 57 68 69 74 65 20 24 6c |eif {[is|White $l|
|00000650| 65 66 74 5d 20 26 26 20 | 5b 69 73 43 68 61 72 20 |eft] && |[isChar |
|00000660| 24 72 69 67 68 74 5d 7d | 20 7b 73 65 74 20 69 6e |$right]}| {set in|
|00000670| 74 65 6c 20 31 7d 0d 09 | 7d 0d 09 6f 6c 64 50 61 |tel 1}..|}..oldPa|
|00000680| 73 74 65 0d 09 73 65 74 | 20 70 61 73 74 65 53 74 |ste..set| pasteSt|
|00000690| 61 72 74 20 5b 67 65 74 | 4d 61 72 6b 5d 0d 09 73 |art [get|Mark]..s|
|000006a0| 65 74 20 70 61 73 74 65 | 46 69 6e 69 73 68 20 5b |et paste|Finish [|
|000006b0| 67 65 74 50 6f 73 5d 0d | 09 69 66 20 7b 24 69 6e |getPos].|.if {$in|
|000006c0| 74 65 6c 20 26 26 20 28 | 5b 6c 6f 6f 6b 41 74 20 |tel && (|[lookAt |
|000006d0| 5b 65 78 70 72 20 5b 67 | 65 74 50 6f 73 5d 2d 31 |[expr [g|etPos]-1|
|000006e0| 5d 5d 20 21 3d 20 22 5c | 72 22 29 7d 20 7b 0d 09 |]] != "\|r")} {..|
|000006f0| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 20 22 0d |.insertT|ext " ".|
|00000700| 09 7d 0d 7d 0d 0d 0d 70 | 72 6f 63 20 69 73 57 68 |.}.}...p|roc isWh|
|00000710| 69 74 65 20 7b 6f 66 66 | 7d 20 7b 0d 09 73 65 74 |ite {off|} {..set|
|00000720| 20 63 20 5b 6c 6f 6f 6b | 41 74 20 5b 65 78 70 72 | c [look|At [expr|
|00000730| 20 5b 67 65 74 50 6f 73 | 5d 20 2b 20 24 6f 66 66 | [getPos|] + $off|
|00000740| 5d 5d 0d 09 72 65 74 75 | 72 6e 20 5b 65 78 70 72 |]]..retu|rn [expr|
|00000750| 20 7b 28 24 63 20 3d 3d | 20 22 20 22 29 7d 5d 0d | {($c ==| " ")}].|
|00000760| 7d 0d 0d 70 72 6f 63 20 | 69 73 43 68 61 72 20 7b |}..proc |isChar {|
|00000770| 6f 66 66 7d 20 7b 0d 09 | 73 65 74 20 63 20 5b 6c |off} {..|set c [l|
|00000780| 6f 6f 6b 41 74 20 5b 65 | 78 70 72 20 5b 67 65 74 |ookAt [e|xpr [get|
|00000790| 50 6f 73 5d 20 2b 20 24 | 6f 66 66 5d 5d 0d 09 72 |Pos] + $|off]]..r|
|000007a0| 65 74 75 72 6e 20 5b 65 | 78 70 72 20 7b 5b 73 74 |eturn [e|xpr {[st|
|000007b0| 72 69 6e 67 20 6d 61 74 | 63 68 20 7b 5b 61 2d 7a |ring mat|ch {[a-z|
|000007c0| 5d 7d 20 24 63 5d 7d 5d | 0d 7d 0d 0d 09 0d 70 72 |]} $c]}]|.}....pr|
|000007d0| 6f 63 20 70 61 73 74 65 | 50 6f 70 20 7b 7d 20 7b |oc paste|Pop {} {|
|000007e0| 0d 09 67 6c 6f 62 61 6c | 20 63 6f 70 79 72 69 6e |..global| copyrin|
|000007f0| 67 20 72 69 6e 67 44 65 | 70 74 68 20 72 69 6e 67 |g ringDe|pth ring|
|00000800| 49 6e 20 72 69 6e 67 4f | 75 74 20 70 61 73 74 65 |In ringO|ut paste|
|00000810| 46 69 6e 69 73 68 20 70 | 61 73 74 65 53 74 61 72 |Finish p|asteStar|
|00000820| 74 0d 09 0d 09 69 66 20 | 7b 21 24 72 69 6e 67 49 |t....if |{!$ringI|
|00000830| 6e 7d 20 7b 20 62 65 65 | 70 3b 20 72 65 74 75 72 |n} { bee|p; retur|
|00000840| 6e 7d 0d 09 0d 09 73 65 | 74 20 72 69 6e 67 4f 75 |n}....se|t ringOu|
|00000850| 74 20 5b 65 78 70 72 20 | 24 72 69 6e 67 4f 75 74 |t [expr |$ringOut|
|00000860| 2d 31 5d 0d 09 69 66 20 | 7b 24 72 69 6e 67 4f 75 |-1]..if |{$ringOu|
|00000870| 74 20 3c 20 30 7d 20 7b | 73 65 74 20 72 69 6e 67 |t < 0} {|set ring|
|00000880| 4f 75 74 20 5b 65 78 70 | 72 20 28 28 24 72 69 6e |Out [exp|r (($rin|
|00000890| 67 44 65 70 74 68 20 3e | 20 24 72 69 6e 67 49 6e |gDepth >| $ringIn|
|000008a0| 29 20 3f 20 24 72 69 6e | 67 49 6e 20 3a 20 24 72 |) ? $rin|gIn : $r|
|000008b0| 69 6e 67 44 65 70 74 68 | 29 20 2d 20 31 5d 7d 0d |ingDepth|) - 1]}.|
|000008c0| 09 0d 09 72 65 70 6c 61 | 63 65 54 65 78 74 20 24 |...repla|ceText $|
|000008d0| 70 61 73 74 65 53 74 61 | 72 74 20 24 70 61 73 74 |pasteSta|rt $past|
|000008e0| 65 46 69 6e 69 73 68 20 | 24 63 6f 70 79 72 69 6e |eFinish |$copyrin|
|000008f0| 67 28 24 72 69 6e 67 4f | 75 74 29 0d 09 73 65 74 |g($ringO|ut)..set|
|00000900| 20 70 61 73 74 65 46 69 | 6e 69 73 68 20 5b 65 78 | pasteFi|nish [ex|
|00000910| 70 72 20 24 70 61 73 74 | 65 53 74 61 72 74 20 2b |pr $past|eStart +|
|00000920| 20 5b 73 74 72 69 6e 67 | 20 6c 65 6e 67 74 68 20 | [string| length |
|00000930| 24 63 6f 70 79 72 69 6e | 67 28 24 72 69 6e 67 4f |$copyrin|g($ringO|
|00000940| 75 74 29 5d 5d 0d 7d 0d | 00 00 00 00 00 00 00 00 |ut)]].}.|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000990| 6f 63 20 6c 6c 20 7b 61 | 72 67 73 7d 20 7b 0d 09 |oc ll {a|rgs} {..|
|000009a0| 65 76 61 6c 20 5b 63 6f | 6e 63 61 74 20 22 6c 73 |eval [co|ncat "ls|
|000009b0| 0c 63 6f 70 79 52 69 6e | 67 2e 74 63 6c 1c 02 00 |.copyRin|g.tcl...|
|000009c0| 02 00 54 45 58 54 41 4c | 46 41 01 00 00 00 01 00 |..TEXTAL|FA......|
|000009d0| 02 00 54 45 58 54 41 4c | 46 41 01 00 00 00 01 00 |..TEXTAL|FA......|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 a9 a5 e1 b6 00 00 | 08 c8 00 00 01 7e 61 63 |........|.....~ac|
|00000a00| 68 20 66 69 6c 65 20 24 | 61 72 67 73 20 7b 0d 09 |h file $|args {..|
|00000a10| 09 73 65 74 20 69 64 20 | 5b 6f 70 65 6e 20 24 66 |.set id |[open $f|
|00000a20| 69 6c 65 5d 0d 09 09 69 | 66 20 7b 5b 72 65 67 65 |ile]...i|f {[rege|
|00000a30| 78 70 20 24 70 61 74 20 | 5b 72 65 61 64 20 24 69 |xp $pat |[read $i|
|00000a40| 64 5d 5d 7d 20 7b 0d 09 | 09 09 63 6c 6f 73 65 20 |d]]} {..|..close |
|00000a50| 24 69 64 0d 09 09 09 73 | 65 74 20 69 64 20 5b 6f |$id....s|et id [o|
|00000a60| 70 65 6e 20 24 66 69 6c | 65 5d 0d 09 09 09 77 68 |pen $fil|e]....wh|
|00000a70| 69 6c 65 20 7b 5b 67 65 | 74 73 20 24 69 64 20 73 |ile {[ge|ts $id s|
|00000a80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 d0 |...H..Mo|naco....|
|00000a90| 0c 40 00 00 00 00 00 e7 | 0d f6 00 03 2f 0a 03 0d |.@......|..../...|
|00000aa0| 00 db 7f c8 00 00 00 04 | 00 04 00 28 00 03 01 ca |........|...(....|
|00000ab0| 02 79 00 28 00 03 01 ca | 02 79 00 23 25 89 00 00 |.y.(....|.y.#%...|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000ad0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 d0 0c 40 |...L...L|...2...@|
|00000ae0| 0d 98 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000af0| 00 0a 03 ed ff ff 00 00 | 00 00 00 d4 63 08 00 00 |........|....c...|
+--------+-------------------------+-------------------------+--------+--------+